

module Atleta (Atleta, nuevoA , nombreA, sexoA, anioNacimientoA, nacionalidadA, ciaNumberA, deportesA, capacidadA {- , entrenarDeporteA -})
where
import Tipos
import Auxiliares
data Atleta = A String Sexo Int Pais Int [(Deporte, Int)] deriving (Show)

nuevoA:: String->Sexo->Int->Pais->Int->[(Deporte,Int)]->Atleta
nuevoA n s a p id dc = A n s a p id dc

nombreA::Atleta->String
nombreA (A nombre _ _ _ _ _) = nombre  

sexoA::Atleta->Sexo
sexoA (A _ sexo _ _ _ _ ) = sexo

anioNacimientoA::Atleta->Int
anioNacimientoA (A _ _ a _ _ _ ) = a

nacionalidadA::Atleta->Pais
nacionalidadA (A _ _ _ p _ _) = p

ciaNumberA::Atleta->Int
ciaNumberA (A _ _ _ _ id _) = id

deportesA::Atleta->[Deporte]
deportesA (A _ _ _ _ _ dc) = map fst dc

capacidadA::Atleta->Deporte->Int
capacidadA (A a b e f g (x:dc) ) d 	| fst x== d = snd x
					| otherwise = capacidadA (A a b e f g dc) d


--entrenarDeporteA::Atleta->Bool

--"Juliana Glavina" <jglavina@gmail.com>, "Mariano Landini" <mlandini91@gmail.com>, 
